10 REM PROGRAMM EPSON-GRAFIK
12 REM DRUCKERKURS 64'ER (AW)
14 PRINT CHR$(147)
16 REM*********************************
18 REM KANAL ZUM DRUCKER OEFFNEN
20 REM*********************************
22 OPEN 1,4
24 A=8192:GOSUB 78
26 PRINT#1,CHR$(27);CHR$(51);CHR$(24)
28 REM*********************************
30 REM ZEILENABSTAND AUF 24/216
32 REM*********************************
34 FOR M=1 TO 3:REM DREI ZEILEN
36 REM*********************************
38 REM GRAFIMODUS ESC "*" M=1 (960)
40 REM*********************************
42 PRINT#1,CHR$(27);CHR$(42);CHR$(1);CHR$(195);CHR$(3);
44 REM*********************************
46 REM EINE ZEILE DRUCKEN (960) PUNKTE
48 REM*********************************
50 FOR Z=0 TO 960
52 B=PEEK(A+Z)
54 PRINT#1,CHR$(B);
56 NEXT Z
58 A=A+960
60 REM*********************************
62 REM EINEN ZEILENVORSCHUB
64 REM*********************************
66 PRINT#1,CHR$(13)
68 NEXT M
70 END
72 REM*********************************
74 REM ZUFALLSMUSTER AB 8192
76 REM*********************************
78 FOR X=0 TO 2880
80 U=INT(RND(1)*255)
82 POKE A+X,U:PRINT U;
84 NEXT X
86 RETURN